/* PutPrepare */
/*
** $Ver: 1.0 copyright 1994 by Merrill Callaway
** All rights reserved worldwide
**
** FinalData Macro to prepare
** FinalData for importing ASCII database
** and changing column types to
** types different from type: text.
** For example, change a data column to type: date
** or an amount column to type: amount.
*/

options results
signal on halt
cleardatabase
open
if rc~=0 then exit 10
portname
port=result
file='RAM:FD_temp_output'
address value port
'save ascii_ch' file
rc=setclip('FDASCIIFILE',file)
selectall
cut force
newrow
/* show message */
showmessage 1 1,
 '"Delete columns whose type is to change."',
  '"Make new columns with proper type."',
   '"Then launch PutDataDirect."',
    '"Continue..." "" ""'
/* end of show message */

halt:
exit